<!-- <%

' ADO constants include file for VBScript

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0

'---- LockTypeEnum Values ----
Const adLockOptimistic = 3

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- CommandTypeEnum Values ----
Const adCmdText = &H0001

'---- ConnectModeEnum Values ----
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3


siteName= "Tabatha"
strDocRefer = Request.Cookies("revsharer")
strSavedRefer = CStr(Request("ID"))

	If strSavedRefer <> "" then
		Response.Cookies("revsharer") = strSavedRefer
		Response.Cookies("revsharer").Expires = now + 30
		strClientIP = CStr(Request.ServerVariables("REMOTE_ADDR"))
		If strClientIP = "" then strClientIP = "Unknown"
		Response.Cookies("address") = strClientIP
		Response.Cookies("address").Expires = now + 30
		strClientReferer = CStr(Request.ServerVariables("HTTP_REFERER"))
		If strClientReferer = "" then strClientReferer = "Unknown"
		Response.Cookies("referer") = strClientReferer
		Response.Cookies("referer").Expires = now + 30

			uniquehit = false
			Set connectPartner = Server.CreateObject("ADODB.Connection")
			connectPartner.ConnectionString = "Driver={MySQL};DATABASE=test;"_
				& "SERVER=216.226.151.237;UID=ampartner;PWD=kat9661;"
			connectPartner.CursorLocation = adUseServer
			connectPartner.Mode = adModeReadWrite
			connectPartner.Open
			strSQL = "SELECT * FROM tblCustomers WHERE IPAddress LIKE '" & strClientIP & "'"
			strSQL2 = "SELECT * FROM tblPartners WHERE PartnerID LIKE '" & strSavedRefer & "'"
			Set rsPartner = Server.CreateObject("ADODB.Recordset")
			Set rsRevshare = Server.CreateObject("ADODB.Recordset")
			rsPartner.Open strSQL, connectPartner, adOpenForwardOnly, adLockOptimistic, adCmdText
			If rsPartner.EOF then
				uniquehit = True
				Set adoCommand = Server.CreateObject("ADODB.Command")
				adoCommand.ActiveConnection = connectPartner
				adoCommand.CommandType = adCmdText
				sqlCommand = "INSERT INTO tblCustomers (IPAddress, PartnerID, ReferingURL, DateFirstVisit, SiteJoined) "
				sqlCommand = sqlCommand & "VALUES ('" & strClientIP & "', '" & strSavedRefer & "', '"
				sqlCommand = sqlCommand & strClientReferer & "', Null, Null)"
				adoCommand.CommandText = sqlCommand
				adoCommand.Execute
				Set adoCommand = Nothing
			Else
				Set adoCommand = Server.CreateObject("ADODB.Command")
				adoCommand.ActiveConnection = connectPartner
				adoCommand.CommandType = adCmdText
				sqlCommand = "UPDATE tblCustomers SET PartnerID = '" & strSavedRefer & "',  referingURL"
				sqlCommand = sqlCommand & " = '" & strClientReferer & "', DateFirstVisit = "
				sqlCommand = sqlCommand & "Null, SiteJoined = Null"
				sqlCommand = sqlCommand & " WHERE IPAddress = " & "'" & strClientIP & "'"
				adoCommand.CommandText = sqlCommand
				adoCommand.Execute
				Set adoCommand = Nothing
			End If
			rsPartner.Close
			
			rsRevshare.Open strSQL2, connectPartner, adOpenForwardOnly, adLockOptimistic, adCmdText
			If rsRevshare.EOF = false then
				Set adoCommand = Server.CreateObject("ADODB.Command")
				adoCommand.ActiveConnection = connectPartner
				adoCommand.CommandType = adCmdText
				sqlCommand = "UPDATE tblPartners SET TotalRawClicks ="
				sqlCommand = sqlCommand & (rsRevshare("TotalRawClicks") + 1)
		
				sqlCommand = sqlCommand & ", " & siteName & "Uniques="
				sqlCommand = sqlCommand & (rsRevshare(siteName & "Uniques") + 1)
				sqlCommand = sqlCommand & ", TotalUniques=" & (rsRevshare("TotalUniques") + 1)
				If rsRevshare(siteName & "Joins") > 0 then
					sqlCommand = sqlCommand & ", " & siteName & "Ratio="
					sqlCommand = sqlCommand & (rsRevshare(siteName & "Uniques") + 1) / _
						rsRevshare(siteName & "Joins")
				End If
				If rsRevshare("TotalJoins") > 0 then
				     sqlCommand = sqlCommand & ", UniquesPerJoin=" & (rsRevshare("TotalUniques") + 1) / _
						rsRevshare("TotalJoins")
				End If

			sqlCommand = sqlCommand & " WHERE PartnerID = '" & strSavedRefer & "'"
			adoCommand.CommandText = sqlCommand
			adoCommand.Execute
			Set adoCommand = Nothing
			End If	
			rsRevshare.Close	
			connectPartner.Close
			Set rsRevshare = Nothing
			Set rsPartner = Nothing
			Set connectPartner = Nothing
	End If
If Request("goto") <> "" then

	Response.Redirect Request("goto")

End If

%> -->
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<title>Tabatha Jordan.com</title>
		<meta http-equiv="Content-Type" content="text/html">
		<script language="JavaScript"><!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v3.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
// -->
		</script>
		<script language="Javascript"><!--
var doit=true;

function exitcnsl()

{

if (doit)

open("http://tabathajordan.com/goodbye.php","gb","channelmode=0,directories=0,fullscreen=0,location=0,menubar=0,resizable=0,scrollbars=0,status=0,toolbar=0,height=400,width=750");

}
// -->
		</script>
<script language="JavaScript" src="privacy.js"></script>
	</head>

	<body bgcolor="#ccccff" text="black" link="#330066" vlink="#330066" alink="#330066" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/bg.gif" onload="MM_preloadImages('images/index_over-2x2.jpg','images/index_over-3x1.jpg','images/index_over-4x1.jpg','images/index_over-5x1.jpg','images/index_over-6x1.jpg');" onunload="exitcnsl()">
		<center>
			<table border="0" cellpadding="0" cellspacing="0" width="595" height="400">
				<tr height="111">
					<td rowspan="7" width="184"><img name="JS0" src="images/index-1x1.jpg" width="184" height="400" border="0" alt="Tabatha Jordan"></td>
					<td colspan="3" height="111"><img name="JS1" src="images/index-1x2.jpg" width="411" height="111" border="0" alt="Tabatha Jordan"></td>
				</tr>
				<tr height="26">
					<td rowspan="5" width="192"><img name="JS2" src="images/index-2x1.jpg" width="192" height="148" border="0"></td>
					<td width="169" height="26"><a href="bio.html" onclick="doit=false" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image10','','images/index_over-2x2.jpg',1)"><img name="Image10" border="0" src="images/index-2x2.jpg" width="169" height="26" alt="Check Out My Bio!"></a></td>
					<td rowspan="5" width="50"><img name="JS4" src="images/index-2x3.jpg" width="50" height="148" border="0"></td>
				</tr>
				<tr height="31">
					<td width="169" height="31"><a href="gallery.html" onclick="doit=false" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image11','','images/index_over-3x1.jpg',1)"><img name="Image11" border="0" src="images/index-3x1.jpg" width="169" height="31" alt="My Free Gallery Photos"></a></td>
				</tr>
				<tr height="31">
					<td width="169" height="31"><a href="members/index.php" onclick="doit=false" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image12','','images/index_over-4x1.jpg',1)"><img name="Image12" border="0" src="images/index-4x1.jpg" width="169" height="31" alt="Members Only"></a></td>
				</tr>
				<tr height="31">
					<td width="169" height="31"><a href="join.php" onclick="doit=false" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image13','','images/index_over-5x1.jpg',1)"><img name="Image13" border="0" src="images/index-5x1.jpg" width="169" height="31" alt="Join Now!"></a></td>
				</tr>
				<tr height="29">
					<td width="169" height="29"><a href="friends/friends.html" onclick="doit=false" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image14','','images/index_over-6x1.jpg',1)"><img name="Image14" border="0" src="images/index-6x1.jpg" width="169" height="29" alt="My Girlfriends"></a></td>
				</tr>
				<tr height="141">
					<td colspan="3" height="141"><img name="JS9" src="images/index-7x1.jpg" width="411" height="141" border="0" alt="Tabatha Jordan"></td>
				</tr>
			</table>
			<br>
			<!--
<font size=4 face="Arial"><a href="http://64.86.112.28/video_tabatha/tabatha.php" 
target="_blank">** FREE STREAMING VIDEO FEED **<br>Click Here</a> to help me test my new streaming video and chat software!</font>
<br> <br>
-->
			<table border="0" width="600">
				<tr>
					<td>
						<center>
							<font size="5" face="Arial" color="#7700ff">WARNING</font><br>
							<font size="2" face="Arial">This Web Site contains adult material that some may find to be offensive. If you are offended by such material, or if you are under 18 years old, you have the option not to view by going back. By continuing to view the following pages you are making the following legal statement: I am over the age of 18, I want to view adult material, and it is legal for me to view such material in my community, state, nation or province. if I proceed and follow a link on this site, I assume full responsibility for my actions. To leave now, <a href="http://yahoo.com" onclick="doit=false">CLICK HERE</a><br>
							&nbsp;<br>
							</font></center>
					</td>
				</tr>
			</table>
			<br>
			<a href="http://amateurpartner.com" target="_blank" onclick="doit=false"><font size="2" face="Arial">Webmasters Click Here To Make Money!</font></a><font size="2" face="Arial"><br>
			&nbsp;<br>
			</font><a href="javascript:priv()"><font face="VERDANA" size="1" onmouseover="window.status='Privacy Policy'; return true;">Privacy Policy</font></a>
			<p><font face="VERDANA" size="1" onmouseover="window.status='Privacy Policy'; return true;"><br>
			<a href="http://achost.com/legal.html">Click Here</a> for copyright and Section 18 USC 2257 information.</font><font size="2" face="Arial"><br>
			<br>
			</font><br>
			<br>
		</center>
	</body>

</html>